##7.2 O modelo mais simples possivel
library(MASS)
search()
ls(package:MASS)
Animals
anim.m2 <- lm(log(brain)~log(body),data=Animals, 
              subset=!(log(Animals$body)>8&log(Animals$brain)<6))
anim.m0 <- lm(log(brain)~1, data=Animals, 
              subset=!(log(Animals$body)>8&log(Animals$brain)<6))
anova(anim.m0,anim.m2)
anova(anim.m2)
##Pergunta 1) A funo anova() retorna a tabela de variancia quando incluimos apenas um modelo como argumento.
#Quando incluimos dois ou mais modelos ela retorna a comparao entre os mesmos.
summary(anim.m0)
mean(log(Animals$brain[!(log(Animals$body)>8&log(Animals$brain)<6)]))
sd(log(Animals$brain[!(log(Animals$body)>8&log(Animals$brain)<6)]))
##Pergunta 2)Nesse caso a funo mean() retorna o intercepto do modelo. J a funo sd() retorna o erro padro do modelo
